AmigActive 2/AACD 2.iso/AACD/Programming/Perl/bin/pod2text

Text File | 1990-01-01 | 175b | 13 lines

#!/gg/bin/perl
    eval 'exec /gg/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;

use Pod::Text;

if(@ARGV) {
    pod2text($ARGV[0]);
} else {
    pod2text("<&STDIN");
}